The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/pc/pb/profile.dir/00020_Script_#go to archive

Text File | 1997-07-29 | 693b | 24 lines

on mousedown
  -- close any open window(s)
  repeat with theWindow in the windowList
    forget theWindow
  end repeat -- kf prs 11/29/96
  set the castnum of sprite the clickon = cast "sh_archive dim"
  updatestage
  repeat while the stilldown
  end repeat
end
on mouseUp
  if rollover(the clickon) then
    waitcursor the clickon
    if the visible of window "textpop.dir" = true then forget window "textpop.dir"
    if the colordepth > 8 then puppettransition 51,02,08
    go to "fadeout"
    set the castnum of sprite 1 to cast "load_arch"
    updatestage
    -- sound transition goes here
    unload
    -- some music here
    go to movie "archive.dir"
  end if
end